home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / classic / modal.bas < prev    next >
BASIC Source File  |  1993-06-09  |  1KB  |  48 lines
  1. OPEN "total.lis" FOR INPUT AS #1
  2. OPEN "modal.dgw" FOR OUTPUT AS #2
  3. OPEN "errors.log" FOR OUTPUT AS #3
  4. PRINT #2, "<HEADER>"
  5. PRINT #2, "dir$=APP\text"
  6. PRINT #2, "Compiled by D.G.Wainwright June 1993"
  7. PRINT #2, "<DATA>"
  8. modal = 0
  9. DO
  10. DO
  11. LINE INPUT #1, a$
  12. LOOP UNTIL INSTR(a$, "books\")
  13. f$ = a$
  14. LINE INPUT #1, a$
  15. LINE INPUT #1, t$
  16. au$ = "<BLANK>"
  17. tr$ = "<BLANK>"
  18. n$ = "<BLANK>"
  19. d$ = "<BLANK>"
  20. DO
  21. LINE INPUT #1, a$
  22. f = 0
  23. IF MID$(a$, 1, 3) = "By " THEN au$ = MID$(a$, 4, 100): f = 1
  24. IF MID$(a$, 1, 10) = "Translated" THEN tr$ = MID$(a$, 15, 100): f = 1
  25. IF MID$(a$, 1, 6) = "NOTES_" THEN n$ = MID$(a$, 7, 100): f = 1
  26. IF MID$(a$, 1, 5) = "DATE_" THEN d$ = MID$(a$, 6, 100): f = 1
  27. PRINT d$, n$
  28. IF a$ = "Anonymous Translator" THEN tr$ = " Anonymous": f = 1
  29. IF VAL(MID$(a$, 1, 2)) <> 0 THEN d$ = a$: f = 1
  30. IF a$ = "*" THEN f = 1
  31. IF a$ = "**" THEN f = 1
  32. IF f = 0 THEN PRINT a$: PRINT #3, f$: PRINT #3, a$: PRINT #3, "{"; modal; "}"
  33. LOOP UNTIL a$ = "*"
  34. PRINT #2, "{"; MID$(STR$(modal), 2, 10); "}"
  35. PRINT #2, "TITLE_"; t$
  36. PRINT #2, "AUTHOR_"; au$
  37. PRINT #2, "TRANSLATION_"; tr$
  38. PRINT #2, "DATE_"; d$
  39. PRINT #2, "TEXT_"; f$
  40. FOR a = 1 TO 3
  41. PRINT #2, "FIELD"; MID$(STR$(a), 2, 10); "_<BLANK>"
  42. NEXT a
  43. modal = modal + 1
  44. PRINT #2, "{END}"
  45. LOOP UNTIL EOF(1)
  46. CLOSE
  47.  
  48.